home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / GCR_READ.ARC / RD TRK 4 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  355 b   |  21 lines
  1. 10 ;RD TRK 4
  2. 260 EXDSK JSR LIST; PUT #$E0 AT $00 IN 1541
  3. 270 LDY #$00
  4. 280 LP21 LDA MW1,Y;M-W 06 00 02 "TRK & SEC"
  5. 290 JSR OUT
  6. 300 INY
  7. 310 CPY #$08
  8. 320 BNE LP21
  9. 330 JSR UNLIS
  10. 340 JSR LIST
  11. 350 LDY #$00
  12. 360 LP22 LDA MW4,Y;M-W 00 00 01 "#$E0"
  13. 370 JSR OUT
  14. 380 INY
  15. 390 CPY #$07
  16. 400 BNE LP22
  17. 410 JSR UNLIS
  18. 411 JSR CHKERR; WAIT FOR ERROR CODE
  19. 420 RTS
  20. 640 .FILE RD TRK 5
  21.